1 Y=1:PRINT"[147]"
2 GOTO80
3 E=+1:POKEA,32:POKEA+H,32:A=A+E:IFPEEK(A+80)=32THEN7
4 GOTO37
5 E=-1:POKEA,32:POKEA+H,32:A=A+E:IFPEEK(A+80)=32THEN7
6 GOTO37
7 L=.:RESTORE
8 POKEA,32:POKEA+H,32:L=L+1:A=A+H:IFPEEK(A+80)=4THEN12
9 IFA=BORA>1944THEN49
10 READTW,T:POKEA,.:POKEA+H,1:POKES+1,TW:POKES,T:GOTO8
12 IFL>=9THEN55
13 POKES+1,0:POKES,0:GOTO37
14 RESTORE:FORTT=1TO21:READTW,T:NEXT:BJ=BJ+1
15 READTW,T:POKEA,32:POKEA+40,32:IFPEEK(A-40)=4THENA=A+1:GOTO7
17 POKES+1,TW:POKES,T:IFA<1064THENA=A+1:GOTO7
18 IFPEEK(A-40)<7THEN55
19 A=A-40:POKEA,.:POKEA+40,1:GOTO15
20 POKE53281,1:POKE53280,2:PRINT"[147]HOP AROUND!"
21 PRINT"[163][163][163][163][163][163][163][163][163][163][163]":PRINT"BY KEVIN DEWEY"
22 PRINT"USE JOYSTICK[157][157][157][157][157][157][157][157][157][157][157][157]FOR MOVEMENT"
23 PRINT"[144]HIT ANY KEY"
24 GOTO600
26 POKEVV+21,0:GOTO58
27 GU=1:POKEB-40,2:GOTO55
30 A=1797:B=1065:S=54272:POKES+5,200:POKES+6,200:POKES+24,15:LL=56320:C=1142
31 MZ=7:FORT=STOS+24:POKET,0:NEXT:POKES+24,15:POKES+3,8:POKES+2,0:POKES+5,144
32 H=40:PRINT"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD";
34 POKEB,2:POKEB+40,3:D=PEEK(LL):IFD=123THEN5
35 POKEC-40,6:POKEC,MZ:IFD=119THEN3
36 IFD=111THEN14
37 POKEA,.:POKEA+40,1:IFPEEK(A+80)=32THEN7
38 M=INT(RND(1)*9)+1:IFM=9ANDP=.THEN42
39 IFA=BTHEN27
40 IFP=1THENRETURN
41 GOTO34
42 N=INT(RND(1)*37)+1144:POKES+6,243:POKES+1,4:POKES,112
43 P=1:FORO=NTON+840STEP40:POKEO,5:GOSUB34:POKEO,32:O=O+40:IFO=AORO=A+40THEN55
44 POKES+4,65:IFPEEK(O+40)=4THENPOKES+4,129:O=O+1
45 POKES+4,33:NEXT:POKES+1,0:POKES,0
46 P=0:POKEN,32:N=.:POKEB,32:POKEB+40,32:B=B+Y:IFPEEK(B)=6ORB>1102THEN51
47 IFMZ=8THENMZ=7:GOTO34
48 IFMZ=7THENMZ=8:GOTO34
49 IFA=BTHEN64
50 GOTO55
51 RESTORE:LA=1062:LP=1904:X=33:POKES+2,100:POKES+3,100:POKE1102,32:POKE1142,32
52 FORT=LATOLPSTEP+39:POKET,7:POKET-40,6:POKET-1,3:POKET-41,2:READW,TT:POKES+4,X
53 POKES+1,W:POKES,TT:POKES+4,17:POKET,32:POKET-40,32:POKET-1,32:POKET-41,32
54 POKES+4,65:NEXT:GOTO150
55 RR=2:POKEA,32:POKEA+40,9:POKEA+41,10:IFGU=1THENPOKEB,3:GU=.:POKES+5,200
56 POKES+6,100:POKES+4,129:POKES+1,33:POKES,135:FORT=15TO0STEP-1:POKES+24,T
57 FORTT=1TO30:NEXT:NEXT:POKES+1,0:POKES,0:FORT=1TO500:NEXT:POKE53272,21:GOTO26
58 PRINT"[147][144]YOU";:GOSUB63:PRINT"[157][157][157]BOMBED";:GOSUB63
59 PRINT"[157][157][157]OUT!":GOSUB63:PRINT"HIT ANY KEY"
61 IFPEEK(197)<>64THENRUN
62 GOTO61
63 FORT=1TO1000:NEXT:RETURN
64 POKEB-1,.:POKEB+39,1:RESTORE
65 FORT=BTO1970STEP+42:POKET,2:POKET+40,3:READTT,TW:POKES,TW:POKES+1,TT
66 POKES+4,33:FORTG=1TO15:NEXT:POKET,32:POKET+40,32:POKES+4,17:NEXT
67 FORT=7TO0STEP-1:POKE2040+T,0:POKES+1,14:POKES,239:POKES+4,129:POKES+24,T*2
68 POKES+4,33:NEXT:POKES+1,0:POKES,0:POKEVV+21,0
69 RR=1:POKE53272,21:PRINT"[147][156]YOU DID IT!":PRINT"      YOU SAVED SWEET DORIS"
70 PRINT"      WITH ONLY";BJ;" JUMPS!"
71 IFBJ>JBTHENPRINT"A[157]NEW[157][157][157]HIGH!!":JB=BJ
75 PRINT"HIT ANY KEY."
76 IFPEEK(197)<>64THENRUN
77 GOTO76
78 STOP
80 POKE52,48:POKE56,48:CLR:GOTO100
81 FORI=1TO74:READJ:NEXT:FORI=12288TO12377:READJ:POKEI,J:NEXT
82 DATA14,24,13,78,12,143,11,218,11,48,10,143,9,247,9,104,8,225,8,97,7,233,7,119
83 DATA7,12,6,167,6,71,5,237,5,152,5,71,4,251,4,180,4,112,4,112,4,180,4,251,5,71
84 DATA5,152,5,237,6,71,6,167,7,12,7,119,7,233,8,97,8,225,9,104,9,247,10,143
85 DATA60,126,219,255,231,126,66,60,24,255,189,189,60,36,36,102,126,90,126,255
86 DATA129,195,102,60,24,153,189,255,126,255,36,102,254,170,254,0,0,0,0,0,28,28
87 DATA28,28,8,62,28,8,60,126,106,247,189,169,60,24,189,254,120,60,124,71,33,96
88 DATA222,127,30,60,62,226,132,6,56,126,221,245,245,221,126,56,112,65,127,248
89 DATA248,127,65,112,0,0
90 GOTO200
91 POKE53272,(PEEK(53272)AND240)+12:PRINT"[147]":FORT=1TO990:PRINT" ";:NEXT
92 PRINT"[154]DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD";
93 PRINT"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD";
94 PRINT"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD";
95 PRINT"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD";
96 POKEVV+23,25:POKEVV+29,13:POKEVV+27,255:POKEVV,18:POKEVV+1,208:POKEVV+4,125
97 POKEVV+5,229:POKEVV+2,80:POKEVV+3,229:POKEVV+6,90:POKEVV+7,208
98 POKEVV+8,60:POKEVV+9,208:POKEVV+10,160:POKEVV+11,229:POKEVV+21,255:GOTO30
99 STOP
100 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
110 FORI=0TO511:POKEI+12288,PEEK(I+53248):NEXT
120 POKE1,PEEK(1)OR4
130 POKE56334,PEEK(56334)OR1
140 GOTO81
150 POKES+1,0:POKES,0:POKEA,32:POKEA+40,9:POKEA+41,10:FORT=1TO50:PRINT:NEXT
155 X=54272
157 POKEVV+27,.
160 POKE53272,21:FORQW=1944TO1184STEP-78:POKEQW,8:POKEQW+X,0:POKEQW+1,1
165 POKEQW+1+X,0:FORSR=1TO400:NEXT:NEXT:POKEVV+21,0:GOTO58
200 REM SPRITES!!!!
210 VV=53248:POKE2040,209:POKE2041,209:POKE2042,209:POKE2043,209
212 POKE2044,209:POKE2045,209
213 POKEVV+43,8:POKEVV+44,10
215 POKEVV+39,10:POKEVV+40,10:POKEVV+41,2:POKEVV+42,8
220 POKE2046,196:FORTT=13376TO13438:READT:POKETT,T:NEXT
300 DATA0,0,0,0,0,0,0,16,0,0,56,0,0,120,0,0,124,0,0,254,0,1,255,0,7,119,0,15,175
310 DATA128,31,223,128,27,254,192,21,253,240,30,251,248,63,127,120,63,188,252
320 DATA127,225,252,252,255,252,219,255,254,231,255,255,255,255,255
500 GOTO20
600 Y=1
601 GETA$:IFA$=""THEN601
610 IFA$="[133]"THEN620
611 GOTO91
620 Y=Y+1:IFY>5THENY=1
630 PRINT"LEVEL ";Y:GOTO601